RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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ib-se -1984 01:46: VAX-11 Bliss- 
eats ra tt Pe Vee A HS 
ZTITLE ‘Shift current word in MRA to the left’ 


MODULE SCL ( 
IDENT = ‘v04-000' 
XBLISS32C, 
RODRESSING MODE (EXTERNAL =LONG RELATIVE ,NONEXTERNAL=LONG RELATIVE) 


de 
BEGIN 


PASSE SSS S ITIL ITI TTT TTT TT TPP rire rit ici icici titer ir titi i tii titi itiiiiitity 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH pi CcNse AND WITH THE 
'® SS Be OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


ix THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: oORPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
't SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
il eehhieaaaiabiahinhnedinbaibameakmnbnnieieekenimniianemmnnsiebnandnanaat tis 
t 

i¢e 

: FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

ABSTRACT: Rearrange the MRA by moving the current word to the left. 


od 
*® 
® 
® 
® 
*® 
® 
® 
® 
' w 
ie TRANSFERRED. ® 
* 
* 
*® 
* 
® 
te 
® 
® 
os 
® 


i 
; 

i 

: ENVIRONMENT: Transportable 

: AUTHOR: R.W.Friday CREATION DATE: May, 1978 
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RCISCL.BLI;1 
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Shift current word in MRA to the left -Sep-1984 01:46: VAX-11 Bliss-32 V4.0-74 Page 
Rev sion Nistory 12=888-1 382 94:38:48 NT EKSVMMASTER CHUNGFE “SRCISCL.BLI;1 ° (2 
r } RSBTTL "Revision History‘ 
49 | MODIFIED BY: 
Of ii 002 REM00002 Ray Marshall 07-Mar-1983 
rh os Global edit of all modules. Updated module names, idents, 
2036 ! copyright dates. Changed require files to BLISS library. 
051 1 i-- 
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RSBTTL "Module Level Declarations’ 
TABLE OF CONTENTS: 


i INCLUDE FILES: 


EQUATED SYMBOLS: 


' 

LIBRARY ‘NXPOR1:XPORT'; ! XPORT Library 

REQUIRE ‘REQ:RNODEF'; ! RUNOFF variant definitions 
<1F DSRPLUS XTHEN 

8 ber ah REQ:DPLLIB'; ! DSRPLUS BLISS Library 
biprny *REQ:DSRLIB'; ! DSR BLISS Library 

! 

MACROS 

i 

i 

i 

' 


OWN STORAGE: 
; 


EXTERNAL REFERENCES: 


EXTERNAL 
MRA : REF FIXED STRING, 
SCA : SCA_DEFINTTION, 
TSF : TSF DEFINITION; 
EXTERNAL ROUTINE 
GCSKIP; 


PT CSUMHASTERSCHUNOFE SRCISCL.BLI;1 


SCL 


4 ft_current word in MRA 2% the left 18-Sep-1984 04:36: he ge 


V4.0-742 Pa 
: CRUNOFF .SRCIJSCL.BLI;1 
SBTTL ‘SCL ==" 
LOBAL ROUTINE scl : NOVALUE = 
"FUNCTIONAL DESCRIPTION: 

See ABSTRACT for a sufficient explanation. 

FORMAL PARAMETERS: None 

IMPLICIT INPUTS: None 

IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


mrrrorororororoprorrrrnrn OF 
IN. AANA rornororurnonororonen) of 


% 
G 
' 
i 
‘ 
i 
i 
i 
' 
i 


ptr, 
ptr copy; 


‘reset pointers and counters back to start 


tsf_int_hl = 6; ‘Nothing in TSF yet. 
tsf_int_vl = 0; eee 
IF .sca_wrd_int_l EQL 0 THEN If ot Pega require, then 
! exit. 
gcskip (.sca_spacing - 1); 'Generate intermediate code for skipping. 
INCR i FROM 1 TO .sca_lm DO 
(fs_wehar (mra, %T° ')); ‘FILL out Left margin with spaces. 


tsf_int_hl = .tsf_int_hl + .sca_lm; 

tsf_ext_hl = .sca_lm; 

ptr = .¥s_next (mra); ‘The current word will start here eventually. 
ptr_copy = .fs_next (mra); 


INCR i FROM 1 TO (.sca_wrd_int_l) DO 
GIN ‘move the current word a character at a time. 
! NOTE: This could have been coded ysing fs_wchar, and forgetting 
: about using ptr_copy and hold_char; however, that uncovered a 


: compiler bug. Also, this genérates more efficient object code. 
LOC 


WN WII RIPINIPINININININ 2 2 9 OO SS S DOOOCOOCOCOCOCOWOOVWNO 


POITIPONIPOPIPINPIPIPIPPININININPININININITUNINININPININPOPYNPyPy 


SN NNN NNO AA AA AAA AA IIIT BBP PEE PW 


AL 
hold_char; 


hold_char = CH$RCHAR_A (sca_wrd_pntr); 
CHSWCHAR_A (.hold_char, ptr_copy); 
fs_length (mra) =~.fs_length (mraS + 1; 


CSOOOSOOOOSCOOOSOOCOCOS COCO COSOOCOOCCOSOCOC OOOO O COCO OOCOOOOOOCOOOOCOOOOOOOO MMH 
AUF WUDN 0 OONOAU EWN 9 OONA UE WIN 9 OD NAUEWWN — CO OONOAUE WAR! 0 OONOULS WN —O 
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ee ee ee ee ee eS _ ee eet 
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16-56 ~35b=f 88s Pb:GBibe | Ped WRALSteRe hbaGee Secascu.eu2:1°° 


; 131 ‘ END; 

Pay fs_next (mra) = .ptr_copy; 

: 138 » sce nrc pntr = ers” 7 tre-establish pointer to SCA_WRD. 
: 188 2 END; ‘End of SCL 


TITLE € ini tt current word in MRA to the left 
- IDENT 4-000\ 


«EXTRN MRA, SCA, TSF, GCSKIP 
»PSECT $CODE$,NOWRT,2 


C3FC 00000 -ENTRY SCL, Save R2,R3,R4,R5,R6,R7,RB,RO 
59 000000006 EF 9E 00002 MOVAB TSF. RO 
58 000000006 EF 9€ 90009 MOVAB MRA. Rs 
57 000000006 EF 9E 9010 MOVAB SCA+248, R7 
50 68 DO 0001 MOVL MRA, RO 
OC AO D4 OOOIA CLRL =: 12 (RO) 
60 10 ad i 0001D MOVAB 16(RO), (RO) 
04 AO 60 D 90021 MOVL (RO), 4(RO) 
50 69 00 00025 MOVL TSF, RO 
60 7C 00028 CLRO (ROS 
18 AO 04 QO02A CLRL 24(RO) 
04 A? D 002D TSTL SCA+252 
5A 13 00030 BEQL 6s5$ 
E 84 B7 01 ¢ 0005¢ SUBL3 #1, @SCA+124, -(SP) 
000000006 EF 01 FB 0003 CALLS #1. GCS 
3 FF7C D7 DO 00056 MOVL  a@SCA+116, R3 
50 68 00 0004 MOVL MRA, RO 
52 04 AO 3 0046 MOVAB 4(R6), R2 
51 68 DO 000A MOVL MRA, R1 
50 04 00040 CLRL 
09 11 O004F BRB $ 
00 B2 20 90 00051 1$ MOVB #32, @0(R2) 
62 D6 00055 INCL (R25 
oc Al D6 0047 INCL igtay) 
F3 50 ew OOSA 2$ AOBLEQ R I, 1$ 
50 69 Dd O05 MOVL SF, RO 
60 5 CO 0006 ADDL2 R3, (RO) 
04 AO 5 DO 00064 MOVL R3, 4(RO) 
56 62 D 068 MOVL (R (Re), P PTR 
50 6 D 06B MOVL BTR. COPY 
54 04 A? D O6F MOVL SCa350. RG 
53 D4 0007 CLRL ; 
0¢ 11 00074 BRB 4$ 
55 00 B7? 9A 00076 38: MOVZBL @SCA+248, HOLD_CHAR 
67 06 7A INCL SCA+ 
80 5 9 7C¢ MOVB vecR) CHAR, (PTR_COPY)+ 
0c Al Db 44) INCL 
FO 53 4 0 4$: AOBLEQ R4 3$ 
62 0 06 6 OVL PTR tory (R2) 
6 6 p MOVL PTR, SCA+248 
4 QOOO8C 5$: R 
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; Routine Size: 141 bytes, Routine Base: $CODE$ + 0000 


13% O68 1 END ‘End of modul 
Py cna of mo e 
188 B58¢ EN bon 7 


PSECT SUMMARY 
Name Bytes Attributes 
SCODES 141 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


yer coe a ar trot ee ee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBIXPORT.L32;1 590 0 0 252 00:00.1 
; 7$255$0UA28: CRUNOFF .SRCJDSRLIB.L32;1 1248 20 1 86 00:00.2 
: COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:SCL/OBJ=OBJ$:SCL MSRC$:SCL/UPDATE=(ENH$:SCL) 


3; Size: 141 code + 0 data bytes 
; Run Time: :04.9 

; Elapsed Time: a 

3; Lines/CPU Min: ret 

; Lexemes/CPU-Min: 1646 

3; Memory Used: 57 pages 
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¥04-000 SCL == 12-88-1382 et By DISKSVMSMASTER: CRUNOFF .SRCISCL.BLI;1 ” 4 
; Compilation Complete 
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